home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / DOS.SWG / 0004_Several Reboot Routines.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  961 b   |  35 lines
  1. {
  2. Here's three different ways of rebooting your computer. The last one does
  3. a coldboot, wich includes the POST (Power On Self Test). This is the same
  4. as using your powerswitch.
  5. }
  6. Procedure ReStart;Assembler;
  7.  
  8. Asm
  9.   INT 19h
  10. End;
  11.  
  12. Procedure WarmBoot;
  13.  
  14. Begin
  15.    InLine
  16.      ($B8/$40/$00                { MOV AX,0040   }
  17.      /$8E/$D8                    { MOV DS,AX     }
  18.      /$89/$C3                    { MOV BX,AX     }
  19.      /$B8/$34/$12                { MOV AX,1234   }
  20.      /$A3/$72/$00                { MOV [0072],AX }
  21.      /$EA/$00/$00/$FF/$FF);      { JMP FFFF:0000 }
  22. End;
  23.  
  24. Procedure ColdBoot;
  25.  
  26. Begin
  27.    InLine
  28.      ($B8/$40/$00                { MOV AX,0040   }
  29.      /$8E/$D8                    { MOV DS,AX     }
  30.      /$89/$C3                    { MOV BX,AX     }
  31.      /$B8/$00/$00                { MOV AX,1234   }
  32.      /$A3/$72/$00                { MOV [0072],AX }
  33.      /$EA/$00/$00/$FF/$FF);      { JMP FFFF:0000 }
  34. End;
  35.